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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 

ie DIGITAL EQUIPMENT CORPORATION, MAYHARD. MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNI SHED UNDER A LICENSE AND MAY BE USED AND COPIED 

ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 

ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

ie OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
is CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBILIT 
is SOFTWARE ON EQUIPMENT WHICH IS Ni 
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! FACILITY: SET CLUSTER 

i ABSTRACT: Implement SET CLUSTER qualifiers 
i AUTHOR: Paul R. Beck 

i DATE: 19-F EB-1984 

{| REVISION HISTORY: 


v03-001 DAS0001 David Solomon 09-Jul-1984 
Fix truncation errors; make nonexternal refs LONG_RELATIVE. 
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LIBRARY ‘SYSSLIBRARY:LI8'; 
LIBRARY *SYSSLIBRARY:CLIMAC.L32'; ! CLI macros 


External routines 


Kk 8 | 
SETCLUSTR iSosenct9ee 09:42:28 yanctt OLieg=sz v4.0-742, Page a 


EXTERNAL ROUTINE 
se val (Aceh ares. ! Validate and set new quorum value 
cliSpresent, ! Get qualifiers 
cli$get_value, ! Get values of qualifiers 
LibSput_output, ! $PUT message to SYSSOUTPUT 
LibScvt_dtb; ! Convert ASCII to numerical 

; Literal data definitions 

LITERAL 
true = 1 
false = 6; 


t 
: Declare the error messages 
Definitions in CCLIUTL.SRCJSET.MSG 
EXTERNAL LITERAL 


set$_nocluster, node not in cluster 
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set$_syntax; ! syntax error 

O75 ; Routines used in this module 

075 1 FORWARD ROUTINE 
76 set$cluster; ! Analyze qualifiers for SET CLUSTER 
8 9078 Macros to generate a string with a descriptor. 
81 0080 MACRO 
4 M 0081 ASCIDCIJ=ZCHARCOUNT(ZREMAINING), ! string descriptor 
8 0082 UPLIT BYTE (ZREMAINING)&; 


Bie aa iy 


8 
voucb00 SETSCLUSTER 1$-Se-1984 99558580 Herb eshe Sse ect bsoa 7682.1 Page 33 


3 5 1 BSBTTL *SETSCLUSTER' 

3 i ; SETSCLUSTER 

; 9 } } FUNCTIONAL DESCRIPTION: 

; 1! Add support for the following commands: 

3 35 0 1! SET CLUSTER/QUORURSn ! set active quorum to specified value 
a. & 091 1! Further description of each qualifier accompanies the code implementing 
; «94 $038 1! that qualifier. 

; 95 095 1! ‘ 

3 38 Boge } ; CALLING SEQUENCE: 

> 98 09% 1! CALL SETSCLUSTER 

; WW B99 1! 

: 10 9 ! : FORMAL PARAMETERS: 

: 136 100 1! none 

; 10 319) 1! 

H 128 8108 \ : IMPLICIT INPUTS: 

3 138 Bige } : Qualifiers are obtained through calls to the CLI. 

; 108 b108 1 ! IMPLICIT OUTPUTS: 

: 109 a 1! 

s 110 108 1! none 

; (111 0109 1! 

3 Vg 0110 1 ! ROUTINE VALUE: 

» 3 0111 1°! 

3 6116 otis 1! none 

s 115 0115 1! 

8 116 0114 1 ! COMPLETION CODES: 

3; 11 0115 1! 

; 118 gts 1! none 

3; 6119 0117 1! 

: 120 0118 1 ! SIDE EFFECTS: 

3; 121 119 1! 

» § 120 1 !-- 

cc 2 121 #1 

: 124 at § 1 GLOBAL ROUTINE set$cluster = 

: 125 1 BEGIN 

: 126 124 

: 127 125 LOCAL 

: 128 1 § oldpriv : SBBLOCK 8). ! Permanent privileges 
: 129 1 desc : SBBLOCK Cdsc$c_s_bin], } gener as descriptor 

| 1 $ quorum : LONG, ' 7QUORUM=q value 

3 6131 1 new_quorum : LONG, ' quorum value see 
o's § 1 fao_buffer : BL OCk C132,BYTE), ! buffer used with FAO 
, ¥ 131 fao_desc : LOCK Edsc$c_s_bln], ! descriptor for same 
eB 1 § output_desc : SBBLOCK Cdsc$c_s_bin], ' work descriptor for output 
: ' 5 ' status : LONG; ! completion status 

: 4 135 

3 138 1 quorum_ctrstr : VECTOR C2,LONG) ! FAO control string 

3 1% ; INITIAL ( ASCID('ZSET-1-QUORUM, new quorum is !UW.')); 
$141 1 3 EXTERNAL | 


a 8 
vous008 SETSCLUSTER 1e-85b=138e 93:08:68 | eet SARE Fc Os oa S2.1 ~~ 
clu$gl_club; ! 20 if no cluster 


i verify that caller has sufficient privileges. SYSPRV, OPER and CMKRNL 
; are required. 


P IF NOT (status = SSETPRV (ENBFLG = 1, ! Enable 
P PRVADR = QO, ! No new privileges 
p PRMFLG = ! Permanent privs 
PRVPRYV = oldpriv)) ' Store current ones here 


THEN SIGNAL_STOP (.status); 
Check to see if privileges there. If not, return error. 


if NOT .oldpriv Cprv$v_oper) THEN status = SS$_NOOPER; 
con Status 


DONA WN “OOONOULS wT 


BEGIN 

SIGNAL (.status); 
RETURN false; 
END; 


wr 


If this node is not in a cluster, there's not much point in proceeding. 
IF _.clu$gl_club EQL 0 
THEN 
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BEGIN 
66 SIGNAL (set$_nocluster); 
67 RETURN false; 
168 END; 


n 8 
TC TR = = 3 8 = oe = 
¥O4-008 /QUORUM = 4 VeeSep-19be 49:08:00 Eek TutLesnedsetcuustnc8S2:1 
17 ZSBTTL ' /QUORUM = q’ 


1 
Initialize dynamic descriptors 


init. Gyndese (desc); 
Sinit_ arts Coutput gesc)i.. 


fao_desc 
fao_desc Cdsc$a_ =potnter} = = fao, buffer; 
w length] 


output_desc (dsc 
output_desc Cdsc$a_pointer] = fao _buf fer; 


status = cli$present ( ZASCID ‘QUORUM’ ); 
can 
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! ser cot pr /QUORUM = 

! The value “cluster will be used as a new active quorum value across 
: oe gat ire tys ters It is oor against high _ low Limits 

! : = current active votes 

: am ‘s ian * the high or y+ Limit as aepresriete. If the value 
supplied is proper’’ quorum for the current cluster is 
' 
I 


8 a a 4 st i ts 8s a et 


OOOO 0000 09 09 69 69 69 0909 0909 SI NINI NINN NINN SIO 


! supplied: (2v+ sahys 
if NOT cli$get_value ( ZASCID ‘QUORUM’, desc ) 
quorum = 0 
IF (NOT LibScvt_dtb ( gone dsc$w_length] 
-desc Cdsc$a_pointerJ, 
quorum 
OR (.quorum GTR 65535) 
THEN 
BEGIN 
QUORUM must be a number no larger than a word. 


SIGNAL (sets syntax, 1, desc); 
Ag N false; 
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7 
8 
$51 
0211 ' : 
is i The rest of the work must be done synchronized with the connection 
Hy manager. 
15 Status = set$validate quorum (, puerya. new_quorum) ; 
1g IF (.status) AND (.new_quorum NEQ 0) 
; THEN | 
19 Report the quorum value which was set 
a 1 ir $FAO ( quorum_ctrstr ' ctrstr 
P § output_desc Casc$w length], ! outlen 
e ? f Ce : eytbut 
.new_quorum : = quorum 
$ THEN -@ mes 


9 
SETCLUSTR “Sep- £42: . “32 V4.0" 
vou /QUORUM = q if seo-t9ge 19:05:60 Fetrum seeSsevctusta ose: reer at 


H 9 0 Lib$Sput_output ( tput_d ); 
: 9 5 RETURN oy Spiga ——— 

; § ; END; 

; 1 2 RETURN true; 

; 5 2 END; 


«TITLE SETCLUSTR 
-IDENT \V04-000\ 


«PSECT S$PLITS,NOWRT,NOEXE ,2 


20 2C 4D 55 52 4F 55 51 20 49 2D 54 45 53 25 00000 P.AAA: .ASCII \%SET-I1-QUORUM, new quorum is !UW.\ ; 
21 20 73 69 20 6D 75 72 6F 75 $ 20 77 $3 6 a0 ’ : 
2— 57 OO1E : 
0021 -BLKB 3 
00 00 4D 55 52 4F 55 51 00024 P.AAC: ASCII \QUORUM\<0><0> : 
010E0006 0002C P.AAB: .<LONG 17694726 ; 
009 0090" 000 0 -ADDRESS P.AAC : 
00 00 4D 55 52 4F 1 0054 P.AAE: ASCII \QUORUM\<0><0> : 
010E0006 000 C P.AAD: .LONG 17694726 : 
00000000" 00040 -ADDRESS P.AAE ; 
.PSECT SOWNS,NOEXE,2 
00000021 00000 auoRUM_CTRSTR: 
eLONG 33 3 
00000000" 00004 ;ADDRESS P.AAA : : 
EXTRN SETSVALIDATE_QUORUM 
sEXTRN CLISPRESENT, CLISGET_VALUE 
“EXTRN LIBS$PUT_OUTPUT, tvT_DTB 
-EXTRN SETS_NOCLUSTER, SETS_SYRTAX 
-EXTRN CLUSGL_CLUB, SYSSSETPRV 
“EXTRN SYS$FAO 
-PSECT $CODE$,NOWRT,2 
000¢ 990 -ENTRY SETSCLUSTER, gave R2,R3 : 0122 
53 000000006 00 9€ 0000 MOVAB 18S] GNAL R F 
5E FF54 CE 9E 000 -172(SP), SP : 
8 AD 9F PUSHAB OL DPRIV + 0148 
1 pp PUSHL ; 
7E 1 70 0001 mova. #1, =(SP) : 
000000006 Q e F 16 CALLS #4, SYSSSETPRV : 
D 1 MOVL 0; STAT F 
0 E BLBS STATUS, 1$ F 
DD PUSHL STATUS + 0149 
000000006 00 FB CALLS #1, LIBS : 
05 FA AD 2 5 C 1$: BBS We SLDPRIVe2 2$ : 0153 
32 2894 BF ¢ 1 MOVZWL #10388, STATUS ; 
4 : E 28: BLBS STATUS, : 0154 
bp PUSHL ATUS : 0157 
5 1 BRB z : 
000000006 D5 3$ TSTL CLUSGL_CLUB : 0163 


9 
voucb00 /QUORUM = q 1$-se0-1984 99:65:00 Pek rut sae Ssetclusta-o$2s1 


¢ 12 43 BNEQ 5$ 
000000006 8F DD 0004 PUSHL #SET$_NOCLUSTER 
3 1 re 4B 4$: CALLS #1, LIBSSIGNAL 
oocg 4 RW 1 
FO AD 02060000 &F 00 5$: MOVL  #34471936, DESC 
FAD OG CLRL DESC 4 
10 AE 0200000 aF v0 OVE #34 71936, FAO_DESC 
08 AE 020E0000 8F DO 7 MOVL reat hh OUTPUT _DESC 
C AE pA F CLRL T DESce+4 
10 AE 4 8F 98 g MOVZBW #132, FAO DESC 
14 AE 18 AE Hi 7 MOVAB FAO BUFFER, FAO_DESC+4 
08 AE 7¢ CLRW OUTPUT_DES¢ 
Oc AE 18 AE OF O07 MOVAB_ FAO_BUFFER, OUTPUT_DESC+4 
00000000" EF 9F 00084 PUSHAB P.AAB 
000000006 99 1 £ 0 BA CALLS #1, CLISPRESENT 
D 91 MOVL RO STATUS 
7E 5 009% BLBC _— STATUS, 
FO AD 9F 00097 PUSHAB DESC 
00000000" EF 9F Q09A PUSHAB P.AAD 
000000006 00 2 FB OOA0 CALLS "e, CLISGET_VALUE 
ny 04 E8 000A7 BLBS RO. 6 
re E D4 OAA CLRL QUORUM 
C 11 OOOAC BRB a$ 
E OD OOOAE 6$ PUSHL § 
Fe OAD BD 008 PUSHL DESC+4 
7E FO AD C 08 MOVZWL DESC. -(SP) 
000000006 00 FB 00087 CALLS #3, LIBSCVT_DTB 
09 0 €9 000BE BLBC =—_- RO 
QOOOFFFF  8F 6— D1 000C1 CMPL § QUORUM, #65535 
10 15 000¢8 BLEQ 8S 
FO AD 9F OOOCA 7$: PUSHAB DESC 
1 DD 000CD PUSHL #1 
000000006 8F DD O00CF PUSHL #SET$_SYNTAX 
6 3 FB 00005 CALLS #3, LIBSSIGNAL 
F 11 00008 BRB 1 
04 AE 9F OOODA 8$: PUSHAB NEW QUORUM 
04 AE DD 000DD PUSHL 
000000006 00 Q F O0E0 CALLS #2, SETSVALIDATE_QUORUM 
38 D O0E MOVL STAT 
2 52 €9 OOOEA BLBC STATUS, 9$ 
04 A BS O0E TSTL NEW. UORUM 
23 13 OOOF BEQL =(9 
04 AE pd F PUSHL NEW_QUORUM 
4 AE 9F O00F PUS FAO-DES 
19 AE 9F OOOF PUSHAB OUTPUT_DESC 
00000000' EF 9F oF PUSHAB QUORUM CTRSTR 
000000006 00 4 Fe 1 CALLS #4, SYSSFAO 
A 0 . 1 BLEC =E._—«aRO._:«O0S 
08 AE F 001 PUSHAB output DESC 
000000006 90 g FB 1 CALLS #1, L IBSPUT_OUTPUT 
1 p 115 9$: MOVL «6o#, RR 
4 0011 RET 
50 b4 119 10$:  CLRL RO 
4 00118 RET 


3; Routine Size: 284 bytes, Routine Base: $CODE$ + 0000 
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: 38 8382 0 ElUpon 


-EXTRN LIBSSIGNAL, LIBSSTOP 


; PSECT SUMMARY 

3 Name Bytes Attributes 

$ SPLITS 68 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SOWNS NOVEC, WRT, RD eNOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; SCODES 284 NOVEC.NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
H Library Statistics 

ee ees eee Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

3 _$255$DUA28:(SYSLIBILIB.L32;1 18619 14 0 1000 00:01.9 

3 ~$255$DUA28:CSYSLIBICLIMAC.L32;1 14 0 0 g 00:00.1 

: COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SETCLUSTR/OBJ=OBJ$:SETCLUSTR MSRC$:SETCLUSTR/UPDATE=(ENHS: SETCLUSTR) 
3; Size: 284 : + 76 data bytes 

3; Run Time 8 § 

3 Elapsed T 

3 ety ay Rin 

; Lexenes/CPU-Rin: 1193 : 

3; Memor 103 vai5 
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